|
800
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
OBJECT bar,chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod(gantt, "ExecuteTemplate", "HTMLPicture(`p1`) = `c:\exontrol\images\card.png`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "HTMLPicture(`p2`) = `c:\exontrol\images\sun.png`");
_ObjectSetProperty( gantt , "AutoDrag", 11);
_ObjectSetProperty( gantt , "LinesAtRoot", 0);
_ObjectSetProperty( gantt , "HasLines", 2);
_ObjectSetProperty( gantt , "ShowFocusRect", 0);
_ObjectSetProperty( gantt , "DefaultItemHeight", 26);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "LevelCount", 2);
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Color", 16777216);
_ObjectSetProperty( bar , "Height", 18);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "<img>p1:32</img>Group 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L1`");
h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `L2`");
h = _ObjectCallMethod( items , "AddItem", "<img>p2:32</img>Group 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
799
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
OBJECT gantt,items,rs;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "HTMLPicture(`p1`) = `c:\exontrol\images\card.png`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "HTMLPicture(`p2`) = `c:\exontrol\images\sun.png`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
var_HTMLPicture = _ObjectCallMethod(gantt, "ExecuteTemplate", "HTMLPicture(`aka1`)");
_ObjectSetProperty( gantt , "HeaderHeight", 24);
_ObjectSetProperty( gantt , "DefaultItemHeight", 48);
_ObjectSetProperty( gantt , "DrawGridLines", -2);
_ObjectSetProperty( gantt , "GridLineColor", 15790320);
_ObjectSetProperty( gantt , "SelBackMode", 1);
_ObjectSetProperty( gantt , "ColumnAutoResize", 0);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB",3,3);
_ObjectSetProperty( gantt , "DataSource", rs);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(0).Def(17) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(0).FormatColumn = `value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>``");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(0).Width = 112");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(1).Def(0) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(2).LevelKey = `1`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(3).LevelKey = `1`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(4).LevelKey = `1`");
_ObjectSetProperty( gantt , "AutoDrag", 10);
_ObjectSetProperty( gantt , "SingleSel", 0);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemByIndex(1)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemByIndex(2)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemByIndex(3)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = `<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellSingleLine(h,1) = False");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,1) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellHAlignment(h,1) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 2");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
798
|
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text
OBJECT gantt,items,rs;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "ColumnAutoResize", 0);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
rs = CreateObject("ADOR.Recordset");
_ObjectCallMethod( rs , "Open", "Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB",3,3);
_ObjectSetProperty( gantt , "DataSource", rs);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(2).LevelKey = `1`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(3).LevelKey = `1`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(4).LevelKey = `1`");
_ObjectSetProperty( gantt , "AutoDrag", 9);
_ObjectSetProperty( gantt , "SingleSel", 0);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemByIndex(1)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemByIndex(3)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemByIndex(4)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemByIndex(5)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h) = True");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,0) = `<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 2");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
797
|
Is it possible to change the indentation during the drag and drop
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectSetProperty( gantt , "AutoDrag", 3);
_ObjectSetProperty( gantt , "LinesAtRoot", 0);
_ObjectSetProperty( gantt , "HasLines", 1);
_ObjectSetProperty( gantt , "HasButtons", 3);
_ObjectSetProperty( gantt , "ShowFocusRect", 0);
_ObjectSetProperty( gantt , "SelBackMode", 1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 128");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Color = 16777216");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Group 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "InsertItem", h1,"","Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/15/2001","1/17/2001","K4");
h2 = _ObjectCallMethod( items , "InsertItem", h1,"","Task 3");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L1`");
h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `L2`");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h1)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h1) = True");
h = _ObjectCallMethod( items , "AddItem", "Group 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.LockedItemCount(2) = 1");
h = _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.LockedItem(2,0)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,0) = `Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the indentation.`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellSingleLine(h,0) = False");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,0) = 1");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
796
|
Is it possible to allow moving an item to another, but keeping its indentation
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectSetProperty( gantt , "AutoDrag", 2);
_ObjectSetProperty( gantt , "LinesAtRoot", 0);
_ObjectSetProperty( gantt , "HasLines", 2);
_ObjectSetProperty( gantt , "ShowFocusRect", 0);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Color = 16777216");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Group 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "InsertItem", h,"","Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L1`");
h3 = _ObjectCallMethod( items , "InsertItem", h,"","Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `L2`");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Group 2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBold(h) = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
795
|
How can I change the row's position to another, by drag and drop. Is it possible
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectSetProperty( gantt , "AutoDrag", 1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "ShowNonworkingDates", 0);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Color = 16777216");
items = _ObjectGetProperty( gantt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L1`");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `L2`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
794
|
Have seen the RenderType, but do not know what kind of values should I use
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( gantt , "BackColorHeader", 16777216);
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "BackColorLevelHeader", 16777216);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/29/2000");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`).Color = 16777216");
items = _ObjectGetProperty( gantt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"Task","1/2/2001","1/4/2001","K1");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L1`");
h3 = _ObjectCallMethod( items , "AddItem", "Task 3");
_ObjectCallMethod( items , "AddBar", h3,"Task","1/8/2001","1/10/2001","K3");
_ObjectCallMethod( items , "AddLink", "L2",h2,"K2",h3,"K3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L2`,12) = `L2`");
_ObjectSetProperty( _ObjectGetProperty( gantt , "VisualAppearance") , "RenderType", -2147483393);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
793
|
I have several columns, but noticed that the filter is using AND between columns, but I need OR clause for filtering. Is it possible
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Item");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "Filter", "Child 1");
_ObjectSetProperty( column , "FilterType", 240);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 9474);
_ObjectSetProperty( column , "Filter", "12/28/2010");
_ObjectSetProperty( column , "FilterType", 4);
_ObjectSetProperty( gantt , "FilterCriteria", "%0 or %1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Description(23) = `<font ;18><fgcolor=FF0000>or</fgcolor></font>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Description(11) = `<font ;18><fgcolor=FF0000>and</fgcolor></font>`");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 1`),1) = #12/27/2010#");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 2`),1) = #12/28/2010#");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 1`),1) = #12/29/2010#");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 2`),1) = #12/30/2010#");
_ObjectCallMethod( gantt , "ApplyFilter");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
792
|
Is it possible exclude the dates being selected in the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 9474);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "12/27/2010");
_ObjectCallMethod( items , "AddItem", "12/28/2010");
_ObjectCallMethod( items , "AddItem", "12/29/2010");
_ObjectCallMethod( items , "AddItem", "12/30/2010");
_ObjectCallMethod( items , "AddItem", "12/31/2010");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
791
|
How can I display a calendar control inside the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Date");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1282);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "12/27/2010");
_ObjectCallMethod( items , "AddItem", "12/28/2010");
_ObjectCallMethod( items , "AddItem", "12/29/2010");
_ObjectCallMethod( items , "AddItem", "12/30/2010");
_ObjectCallMethod( items , "AddItem", "12/31/2010");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
790
|
Is it possible to include the dates as checkb-boxes in the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Dates");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1280);
_ObjectSetProperty( column , "Filter", "to 12/27/2010");
_ObjectSetProperty( column , "FilterType", 4);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "12/27/2010");
_ObjectCallMethod( items , "AddItem", "12/28/2010");
_ObjectCallMethod( items , "AddItem", "12/29/2010");
_ObjectCallMethod( items , "AddItem", "12/30/2010");
_ObjectCallMethod( items , "AddItem", "12/31/2010");
_ObjectCallMethod( gantt , "ApplyFilter");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
789
|
How can I filter items for dates before a specified date
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Dates");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1026);
_ObjectSetProperty( column , "Filter", "to 12/27/2010");
_ObjectSetProperty( column , "FilterType", 4);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "12/27/2010");
_ObjectCallMethod( items , "AddItem", "12/28/2010");
_ObjectCallMethod( items , "AddItem", "12/29/2010");
_ObjectCallMethod( items , "AddItem", "12/30/2010");
_ObjectCallMethod( items , "AddItem", "12/31/2010");
_ObjectCallMethod( gantt , "ApplyFilter");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
788
|
Is it possible to filter dates
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Dates");
_ObjectSetProperty( column , "SortType", 2);
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "DisplayFilterDate", -1);
_ObjectSetProperty( column , "FilterList", 1026);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "12/27/2010");
_ObjectCallMethod( items , "AddItem", "12/28/2010");
_ObjectCallMethod( items , "AddItem", "12/29/2010");
_ObjectCallMethod( items , "AddItem", "12/30/2010");
_ObjectCallMethod( items , "AddItem", "12/31/2010");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
787
|
Is it possible to change the Exclude field name to something different, in the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Description(25) = `Leaving out`");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
786
|
How can I display the Exclude field in the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 9472);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
785
|
Is it possible to show and ensure the focused item from the control, in the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 1280);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(InsertItem(h,,`Child 2`)) = True");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
784
|
Is it possible to show only blanks items with no listed items from the control
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 16386);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
783
|
How can I include the blanks items in the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 16640);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
782
|
How can I select multiple items in the drop down filter window, using check-boxes
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 256);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
781
|
Is it possible to allow a single item being selected in the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", 0);
_ObjectSetProperty( column , "FilterList", 128);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
780
|
How can I display no (All) item in the drop down filter window
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Description(0) = ``");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "FilterList", 2);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
779
|
Is it possible to display no items in the drop down filter window, so only the pattern is visible
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
_ObjectSetProperty( column , "DisplayFilterButton", -1);
_ObjectSetProperty( column , "DisplayFilterPattern", -1);
_ObjectSetProperty( column , "FilterList", 2);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
778
|
How can I show the child items with no identation
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "LinesAtRoot", 5);
_ObjectSetProperty( gantt , "Indent", 12);
_ObjectSetProperty( gantt , "HasLines", 2);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
|
|
777
|
Is there other ways of showing the hierarchy lines (exGroupLinesAtRoot)
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "LinesAtRoot", 1);
_ObjectSetProperty( gantt , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
776
|
Is there other ways of showing the hierarchy lines (exGroupLinesOutside)
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "LinesAtRoot", 5);
_ObjectSetProperty( gantt , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
|
|
775
|
Is there other ways of showing the hierarchy lines (exGroupLinesInsideLeaf)
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "LinesAtRoot", 4);
_ObjectSetProperty( gantt , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
774
|
Is there other ways of showing the hierarchy lines (exGroupLinesInside)
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "LinesAtRoot", 3);
_ObjectSetProperty( gantt , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
773
|
Is there other ways of showing the hierarchy lines (exGroupLines)
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "LinesAtRoot", 2);
_ObjectSetProperty( gantt , "Indent", 12);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "InsertItem", h,"","Child 2"),"","SubChild 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 3");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
772
|
Is it possible background color displayed when the mouse passes over an item
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Def");
_ObjectSetProperty( gantt , "HotBackColor", 8388608);
_ObjectSetProperty( gantt , "HotForeColor", 16777215);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "Item A");
_ObjectCallMethod( items , "AddItem", "Item B");
_ObjectCallMethod( items , "AddItem", "Item C");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
771
|
How can I simulate displaying groups
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "HasLines", 0);
_ObjectSetProperty( gantt , "ScrollBySingleLine", -1);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Name");
_ObjectCallMethod( columns , "Add", "A");
_ObjectCallMethod( columns , "Add", "B");
_ObjectCallMethod( columns , "Add", "C");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Group 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h1)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 4");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 5");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 6");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
h = _ObjectCallMethod( items , "AddItem", "Group 2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellHAlignment(h,0) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDivider(h) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemDividerLineAlignment(h) = 3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemHeight(h) = 24");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SortableItem(h) = False");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h1)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 3");
h1 = _ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,1) = 4");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,2) = 5");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h1,3) = 6");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
770
|
Is it possible to change the height for all items at once
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
h = _ObjectCallMethod( items , "AddItem", "Root 2");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(0) = True");
_ObjectCallMethod( gantt , "EndUpdate");
_ObjectSetProperty( gantt , "DefaultItemHeight", 12);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Items.ItemHeight(0) = 12");
|
|
769
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Value");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "FormatCell");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = 12");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `currency(value)`");
h = _ObjectCallMethod( items , "AddItem", "1/1/2001");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,1) = #1/1/2001#");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaptionFormat(h,1) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `longdate(value) replace '2001' with '<b>2001</b>'`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
768
|
Is it possible to specify the cell's value but still want to display some formatted text instead the value
OBJECT column,columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Name");
column = _ObjectCallMethod( columns , "Add", "Values");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 64);
_ObjectSetProperty( column , "FormatColumn", "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", column)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.FormatCell(h,1) = `'<none>'`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 1`),1) = 10");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 2`),1) = 15");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 3`),1) = 25");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
767
|
I am using the FormatColumn to display the current currency, but would like hide some values. Is it possible
OBJECT column,columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Name");
column = _ObjectCallMethod( columns , "Add", "Values");
_ObjectSetProperty( column , "SortType", 1);
_ObjectSetProperty( column , "AllowSizing", 0);
_ObjectSetProperty( column , "Width", 64);
_ObjectSetProperty( column , "FormatColumn", "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)");
_ObjectCallMethod(gantt, "TemplatePut", "Dim colObj")
_ObjectCallMethod(gantt, "TemplatePut", column)
_ObjectCallMethod(gantt, "ExecuteTemplate", "colObj.Def(17) = 1");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.FormatCell(h,1) = ` `");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 1`),1) = 10");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 2`),1) = 15");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(InsertItem(h,,`Child 3`),1) = 25");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
766
|
How can I apply the same ConditionalFormat on more than 1(one) column (multiple columns and not on item)
OBJECT columns,conditionalformat,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "1","K1");
_ObjectSetProperty( conditionalformat , "BackColor", 255);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "1","K2");
_ObjectSetProperty( conditionalformat , "BackColor", 255);
_ObjectSetProperty( conditionalformat , "ApplyTo", 2);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "DrawGridLines", -2);
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod( columns , "Add", "Column 2");
_ObjectCallMethod( columns , "Add", "Column 3");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod( items , "AddItem", );
_ObjectCallMethod( gantt , "EndUpdate");
|
|
765
|
How can I get the list of items as they are displayed
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "BackColorAlternate", 15790320);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Names");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "Mantel");
_ObjectCallMethod( items , "AddItem", "Mechanik");
_ObjectCallMethod( items , "AddItem", "Motor");
_ObjectCallMethod( items , "AddItem", "Murks");
_ObjectCallMethod( items , "AddItem", "Märchen");
_ObjectCallMethod( items , "AddItem", "Möhren");
_ObjectCallMethod( items , "AddItem", "Mühle");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( gantt , "EndUpdate");
Message( _ObjectCallMethod( gantt , "GetItems", 1) );
|
|
764
|
Is posible to reduce the size of the picture to be shown in the column's caption
OBJECT gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`");
_ObjectSetProperty( gantt , "HeaderHeight", 48);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "DefaultSize") , "HTMLCaption", "Default-Size <img>pic1</img> Picture");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "CustomSize") , "HTMLCaption", "Custom-Size <img>pic1:16</img> Picture");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
763
|
How can I change the color, font, bold etc for the items/cells in the same column or for the entire column
OBJECT column,conditionalformat,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "1");
_ObjectSetProperty( conditionalformat , "Bold", -1);
_ObjectSetProperty( conditionalformat , "ForeColor", 255);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "C1");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "C2");
_ObjectSetProperty( column , "HeaderBold", -1);
_ObjectSetProperty( column , "HTMLCaption", "<fgcolor=FF0000>C2");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(10),1) = 11");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(12),1) = 13");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
762
|
The item is not getting selected when clicking the cell's checkbox. What should I do
// CellStateChanged event - Fired after cell's state has been changed.
FUNCTION ganttEvents_CellStateChanged(OBJECT gantt, INT Item, INT ColIndex)
_ObjectCallMethod(gantt, "TemplatePut", "Dim Item")
_ObjectCallMethod(gantt, "TemplatePut", Item)
_ObjectCallMethod(gantt, "ExecuteTemplate", "Items.SelectItem(Item) = True");
END
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Add(`Check`).Def(0) = True");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( items , "AddItem", 3);
|
|
761
|
Is it possible to limit the height of the item while resizing
// AddItem event - Occurs after a new Item has been inserted to Items collection.
FUNCTION ganttEvents_AddItem(OBJECT gantt, INT Item)
_ObjectCallMethod(gantt, "TemplatePut", "Dim Item")
_ObjectCallMethod(gantt, "TemplatePut", Item)
_ObjectCallMethod(gantt, "ExecuteTemplate", "Items.ItemMinHeight(Item) = 18");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Items.ItemMaxHeight(Item) = 72");
END
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ItemsAllowSizing", -1);
_ObjectSetProperty( gantt , "ScrollBySingleLine", 0);
_ObjectSetProperty( gantt , "BackColorAlternate", 15790320);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Names");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "Mantel");
_ObjectCallMethod( items , "AddItem", "Mechanik");
_ObjectCallMethod( items , "AddItem", "Motor");
_ObjectCallMethod( items , "AddItem", "Murks");
_ObjectCallMethod( items , "AddItem", "Märchen");
_ObjectCallMethod( items , "AddItem", "Möhren");
_ObjectCallMethod( items , "AddItem", "Mühle");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(0).SortOrder = 1");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
760
|
Is it possible to copy the hierarchy of the control using the GetItems method
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Def");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
_ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod( gantt , "PutItems", _ObjectCallMethod( gantt , "GetItems", -1));
|
|
759
|
Does your control supports multiple lines tooltip
OBJECT gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod(gantt, "ExecuteTemplate", "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`");
_ObjectSetProperty( gantt , "ToolTipDelay", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "tootip") , "ToolTip", "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, " +
"icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>");
|
|
758
|
It is possible to write the word in red/color or to add a tooltip or a link to the word
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "12/26/2000");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 32");
items = _ObjectGetProperty( gantt , "Items");
h1 = _ObjectCallMethod( items , "AddItem", "Task 1");
_ObjectCallMethod( items , "AddBar", h1,"","1/1/2001","1/5/2001","K1","some <fgcolor=FF0000>red</fgcolor> text");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h1")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h1)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,10) = False");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h1,`K1`,6) = `And here goes the <b>tooltip</b> of the text. `");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod( items , "AddItem", "");
h2 = _ObjectCallMethod( items , "AddItem", "Task 2");
_ObjectCallMethod( items , "AddBar", h2,"Task","1/5/2001","1/7/2001","K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h2")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h2)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h2,`K2`,6) = `And here goes the <b>tooltip</b> of the bar. `");
_ObjectCallMethod( items , "AddLink", "L1",h1,"K1",h2,"K2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,12) = `L<b>inke</b>d to a bar`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Link(`L1`,13) = `And here goes the <b>tooltip</b> of the link. `");
|
|
757
|
It is possible to use seconds/minutes/hours as time scale in your control, but using my regional settings
OBJECT chart,gantt,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(16) = `<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(65536) = `<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(1048576) = `<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(16777216) = `<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(16) = `<%loc_mmmm%>/<%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(65536) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(1048576) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(16777216) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 4);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0).Label = 4096");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(2).Label = 1048576");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(3)");
_ObjectSetProperty( level , "Count", 15);
_ObjectSetProperty( level , "Label", 16777216);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
756
|
The chart's header is displayed in English. Can I change so it is the same as in my regional settings
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(16) = `<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(65536) = `<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(1048576) = `<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(16777216) = `<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(16) = `<%loc_mmmm%>/<%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(65536) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(1048576) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(16777216) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
755
|
It is possible to use seconds/minutes/hours as time scale in your control
OBJECT chart,gantt,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2001");
_ObjectSetProperty( chart , "LevelCount", 4);
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0).Label = 4096");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1).Label = 65536");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(2).Label = 1048576");
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(3)");
_ObjectSetProperty( level , "Count", 15);
_ObjectSetProperty( level , "Label", 16777216);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
754
|
How can I prevent highlighting the column from the cursor - point
OBJECT gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJ" +
"gEgI=");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Background(32) = 16777216");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "S") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Level 1") , "LevelKey", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Level 2") , "LevelKey", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Level 3") , "LevelKey", 1);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "E1") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "E2") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "E3") , "Width", 32);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "E4") , "Width", 32);
|
|
753
|
Can I use and display PNG pictures
OBJECT gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod(gantt, "ExecuteTemplate", "HTMLPicture(`pic1`) = `c:\exontrol\images\card.png`");
_ObjectSetProperty( gantt , "HeaderHeight", 48);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "ColumnName") , "HTMLCaption", "<b>HTML</b> Column <img>pic1</img> Picture");
|
|
752
|
Is it possible to specify the background color for the item in the chart part only
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(hC) = 255");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
751
|
Is it possible to apply different visual appearance, color, sizes for item in the list and chart part
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 2,"c:\exontrol\images\pushed.ebn");
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 3,"CP:2 2 2 -2 -2");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
_ObjectSetProperty( gantt , "SelBackMode", 1);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 33554176");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(hC) = 50396928");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
750
|
How do I change the visual appearance for the entire item, using your EBN technology
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 16777216");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(hC) = 16777216");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
749
|
is it possible to specify the a different background color for the item, list and chart part
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 255");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(hC) = 65535");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
748
|
Is it possible to specify the background color for the entire row, including the chart part
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Default");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Root");
hC = _ObjectCallMethod( items , "InsertItem", h,"","Child 1");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,hC")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", hC)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBackColor(hC) = 255");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.Me.Chart.ItemBackColor(hC) = 255");
_ObjectCallMethod( items , "InsertItem", h,"","Child 2");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ExpandItem(h) = True");
|
|
747
|
How can I show the tooltip programmatically ( I want to be able to set the tooltip content dynamically just before the tooltip start to appear, not using the exBarTooltip )
// MouseMove event - Occurs when the user moves the mouse.
FUNCTION ganttEvents_MouseMove(OBJECT gantt, INT Button, INT Shift, INT X, INT Y)
_ObjectCallMethod(gantt, "TemplatePut", "Dim _ObObj")
_ObjectCallMethod(gantt, "TemplatePut", _ObjectGetProperty( gantt , "Chart"))
_ObjectCallMethod( gantt , "ShowToolTip", _ObjectCallMethod(gantt, "ExecuteTemplate", "_ObObj.BarFromPoint(-1,-1)"),"","8","8");
END
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
ObjectAssociateEvents("ganttEvents", gantt);
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Def");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 64");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectSetProperty( chart , "FirstVisibleDate", "1/1/2010");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2010","1/5/2010","A","A");
_ObjectCallMethod( items , "AddBar", h,"Task","1/5/2010","1/8/2010","B","B");
_ObjectCallMethod( items , "AddBar", h,"Task","1/8/2010","1/11/2010","C","C");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
746
|
Is it possible to move an item from a parent to another
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "AddItem", "C"),"","D");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod( items , "SetParent", _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.FindItem(`D`,0)"),_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.FindItem(`A`,0)"));
_ObjectCallMethod( gantt , "EndUpdate");
|
|
745
|
How can I change the identation for an item
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "LinesAtRoot", -1);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Items");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "A");
_ObjectCallMethod( items , "AddItem", "B");
_ObjectCallMethod( items , "InsertItem", _ObjectCallMethod( items , "AddItem", "C"),"","D");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod( items , "SetParent", _ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.FindItem(`D`,0)"),0);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
744
|
How can I specify the levels using the user's Regional and Language Options
OBJECT chart,gantt,level;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Font") , "Name", "Arial Unicode MS");
_ObjectSetProperty( gantt , "HeaderHeight", 36);
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "5/30/2010");
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "UnitWidth", 36);
_ObjectSetProperty( chart , "LevelCount", 2);
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(0)");
_ObjectSetProperty( level , "Label", "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> ");
_ObjectSetProperty( level , "ToolTip", _ObjectGetProperty( level , "Label"));
_ObjectSetProperty( level , "Unit", 256);
level = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Level(1)");
_ObjectSetProperty( level , "Label", "<%loc_ddd%><br><%d%>");
_ObjectSetProperty( level , "ToolTip", _ObjectGetProperty( level , "Label"));
_ObjectSetProperty( chart , "ToolTip", "<%loc_ldate%>");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
743
|
How can I display a bar only using a gradient color and shadow
OBJECT bar,chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "Color"));
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
h = _ObjectCallMethod( items , "AddItem", "W/h Gradient");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = 8291");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
742
|
Is it possible to display a bar only using a gradient color using the exBarColor option
OBJECT bar,chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Height", 17);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
h = _ObjectCallMethod( items , "AddItem", "W/h Gradient");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = 227");
h = _ObjectCallMethod( items , "AddItem", "W/h Color");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = 227");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,``,513) = 255");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
741
|
Is it possible to display a bar only using a gradient color
OBJECT bar,chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Height", 17);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
h = _ObjectCallMethod( items , "AddItem", "W/h Gradient");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = 227");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
740
|
Is it possible to display a bar only using a gradient color
OBJECT bar,chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "Color"));
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
h = _ObjectCallMethod( items , "AddItem", "W/h Gradient");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = 99");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
739
|
How can I display a specified bar only with a thicker border
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
h = _ObjectCallMethod( items , "AddItem", "W/h Border");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = 4099");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
738
|
Is it possible to display the shadow for a specified bar
OBJECT chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
h = _ObjectCallMethod( items , "AddItem", "W/h Shadow");
_ObjectCallMethod( items , "AddBar", h,"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.ItemBar(h,``,17) = 8195");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
737
|
Is it possible to display the task bars with a gradient color
OBJECT bar,chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
_ObjectCallMethod( _ObjectGetProperty( chart , "Bars") , "Copy", "Task","TaskO");
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Pattern", 99);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "Color"));
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"TaskO","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient"),"Task","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Original"),"TaskO","1/4/2010","1/9/2010","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
736
|
How can I know the type of bars I can displays using predefined patterns
OBJECT bar,bars,chart,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "FirstVisibleDate", "12/31/2009");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 96");
bars = _ObjectGetProperty( chart , "Bars");
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "Box") , "Pattern", 32);
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "ThickBox") , "Pattern", 4128);
_ObjectSetProperty( _ObjectCallMethod( bars , "Add", "DiagBox") , "Pattern", 4102);
_ObjectSetProperty( _ObjectCallMethod( bars , "Copy", "Task","Shadow") , "Pattern", 8195);
_ObjectSetProperty( _ObjectCallMethod( bars , "Copy", "Task","TShadow") , "Pattern", 12295);
bar = _ObjectCallMethod( bars , "Add", "HGrad1");
_ObjectSetProperty( bar , "Pattern", 32);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", 16711680);
bar = _ObjectCallMethod( bars , "Add", "HGrad2");
_ObjectSetProperty( bar , "Pattern", 35);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", 16711680);
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( bars , "Add", "HGrad3");
_ObjectSetProperty( bar , "Pattern", 163);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( bars , "Add", "HGrad4");
_ObjectSetProperty( bar , "Pattern", 4256);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( bars , "Add", "HGrad5");
_ObjectSetProperty( bar , "Pattern", 8352);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", 255);
_ObjectSetProperty( bar , "Color", 16711680);
bar = _ObjectCallMethod( bars , "Add", "VGrad1");
_ObjectSetProperty( bar , "Pattern", 96);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", 16711680);
_ObjectSetProperty( bar , "Height", 14);
bar = _ObjectCallMethod( bars , "Add", "VGrad2");
_ObjectSetProperty( bar , "Pattern", 99);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", 16711680);
_ObjectSetProperty( bar , "Color", 16711680);
_ObjectSetProperty( bar , "Height", 14);
bar = _ObjectCallMethod( bars , "Add", "VGrad3");
_ObjectSetProperty( bar , "Pattern", 227);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Color", 16711680);
_ObjectSetProperty( bar , "Height", 14);
bar = _ObjectCallMethod( bars , "Add", "VGrad4");
_ObjectSetProperty( bar , "Pattern", 4320);
_ObjectSetProperty( bar , "StartColor", 16777215);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Color", 16711680);
_ObjectSetProperty( bar , "Height", -1);
bar = _ObjectCallMethod( bars , "Add", "VGrad5");
_ObjectSetProperty( bar , "Pattern", 8416);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", 255);
_ObjectSetProperty( bar , "Color", 16711680);
_ObjectSetProperty( bar , "Height", 14);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Types");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Box"),"Box","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Thick Box"),"ThickBox","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Thick Box Diag"),"DiagBox","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Shadow"),"Shadow","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Thick Shadow"),"TShadow","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Solid Gradient"),"HGrad1","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient"),"HGrad2","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient 3 Colors"),"HGrad3","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Solid Gradient 3 Colors"),"HGrad4","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Gradient Shadow"),"HGrad5","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Solid Gradient"),"VGrad1","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient"),"VGrad2","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Pattern Gradient 3 Colors"),"VGrad3","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Solid Gradient 3 Colors"),"VGrad4","1/4/2010","1/9/2010","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Gradient Shadow"),"VGrad5","1/4/2010","1/9/2010","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
735
|
Is it possible to display the bars with a thicker border
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars") , "Copy", "Task","TaskB") , "Pattern", 4099);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"TaskB","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
734
|
Is it possible to display the shadow for EBN bars
OBJECT bar,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "VisualAppearance") , "Add", 1,"c:\exontrol\images\normal.ebn");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars") , "Copy", "Task","EBN");
_ObjectSetProperty( bar , "Color", 16777216);
_ObjectSetProperty( bar , "Pattern", 8192);
_ObjectSetProperty( _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars") , "Copy", "Task","EBN2") , "Color", 16777216);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"EBN2","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"EBN","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 3"),"EBN2","1/2/2001","1/5/2001","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
733
|
Can I display a shadow for my bars
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.Bars.Item(`Task`).Pattern = 8195");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"Task","1/2/2001","1/5/2001","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
732
|
How can I use the Color property for gradient bars
OBJECT bar,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(False) = 48");
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars") , "Add", "V");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Pattern", 224);
_ObjectSetProperty( bar , "Height", -1);
bar = _ObjectCallMethod( _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars") , "Add", "H");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", _ObjectGetProperty( bar , "StartColor"));
_ObjectSetProperty( bar , "Pattern", 160);
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 1"),"V","1/2/2001","1/5/2001","");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Task 2"),"H","1/2/2001","1/5/2001","");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
731
|
Is there any option to show bars with vertical gradient
OBJECT bar,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Task");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
bar = _ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.Bars.Item(`Task`)");
_ObjectSetProperty( bar , "Color", 255);
_ObjectSetProperty( bar , "StartColor", 65280);
_ObjectSetProperty( bar , "EndColor", 65535);
_ObjectSetProperty( bar , "Pattern", 96);
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "Task");
_ObjectCallMethod( items , "AddBar", h,"Task","1/2/2001","1/5/2001","");
|
|
730
|
How can I define a new milestone bar
OBJECT bar,bars,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( gantt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
bars = _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars");
_ObjectCallMethod( bars , "AddShapeCorner", 12345,1);
_ObjectCallMethod( bars , "AddShapeCorner", 12346,2);
_ObjectSetProperty( _ObjectCallMethod( bars , "Copy", "Milestone","M1") , "StartShape", 12345);
_ObjectSetProperty( _ObjectCallMethod( bars , "Copy", "Milestone","M2") , "StartShape", 12346);
bar = _ObjectCallMethod( bars , "Copy", "Milestone","MP");
_ObjectSetProperty( bar , "StartShape", 20);
_ObjectSetProperty( bar , "StartColor", 255);
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Default"),"Milestone","1/2/2001","1/2/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Predefined"),"MP","1/3/2001","1/3/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Custom 1"),"M1","1/4/2001","1/4/2001");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Custom 2"),"M2","1/5/2001","1/5/2001");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
729
|
How can I define my milestone bar, using my icons or pictures
OBJECT bars,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "Images", "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" +
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" +
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" +
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=");
_ObjectSetProperty( _ObjectGetProperty( gantt , "Chart") , "FirstVisibleDate", "1/1/2001");
bars = _ObjectGetProperty( _ObjectGetProperty( gantt , "Chart") , "Bars");
_ObjectCallMethod( bars , "AddShapeCorner", 12345,1);
_ObjectCallMethod(gantt, "TemplatePut", "Dim barObj")
_ObjectCallMethod(gantt, "TemplatePut", bars)
_ObjectCallMethod(gantt, "ExecuteTemplate", "barObj.Item(`Milestone`).StartShape = 12345");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Column");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddBar", _ObjectCallMethod( items , "AddItem", "Item 1"),"Milestone","1/2/2001","1/2/2001");
|
|
728
|
I haven't found options to localize (in Italian) the strings ( dates, tooltip ) that shows in the chart area
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "MonthNames", "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre");
_ObjectSetProperty( chart , "WeekDays", "domenica lunedì martedì mercoledì giovedì venerdì sabato");
_ObjectSetProperty( chart , "ToolTip", "<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
727
|
I haven't found options to localize (in Dutch) the strings ( dates, tooltip ) that shows in the chart area
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "MonthNames", "januari februari maart april mei juni juli augusts september oktober november december");
_ObjectSetProperty( chart , "WeekDays", "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag");
_ObjectSetProperty( chart , "ToolTip", "<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
726
|
I haven't found options to localize (in German) the strings ( dates, tooltip ) that shows in the chart area
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%>.<%mmmm%> <%yyyy%> <%ww%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>`");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "MonthNames", "Januar Februar März April Mai Juni Juli August September Oktober November Dezember");
_ObjectSetProperty( chart , "WeekDays", "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag");
_ObjectSetProperty( chart , "ToolTip", "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
725
|
I haven't found options to localize (in French) the strings ( dates, tooltip ) that shows in the chart area
OBJECT chart,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
chart = _ObjectGetProperty( gantt , "Chart");
_ObjectSetProperty( chart , "LevelCount", 2);
_ObjectCallMethod(gantt, "TemplatePut", "Dim chaObj")
_ObjectCallMethod(gantt, "TemplatePut", chart)
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.PaneWidth(False) = 0");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "chaObj.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`");
_ObjectSetProperty( chart , "FirstWeekDay", 1);
_ObjectSetProperty( chart , "MonthNames", "janvier février mars avril mai juin juillet août septembre octobre novembre décembre");
_ObjectSetProperty( chart , "WeekDays", "dimanche lundi mardi mercredi jeudi vendredi samedi");
_ObjectSetProperty( chart , "ToolTip", "<%dddd%> <%d%> <%mmmm%> <%yyyy%>");
_ObjectSetProperty( chart , "UnitScale", 4096);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
724
|
How can I filter programatically using more columns
OBJECT column,columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Car");
_ObjectCallMethod( columns , "Add", "Equipment");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Mazda`),1) = `Air Bag`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Toyota`),1) = `Air Bag,Air condition`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Ford`),1) = `Air condition`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Nissan`),1) = `Air Bag,ABS,ESP`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Mazda`),1) = `Air Bag, ABS,ESP`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(`Mazda`),1) = `ABS,ESP`");
column = _ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(`Car`)");
_ObjectSetProperty( column , "FilterType", 240);
_ObjectSetProperty( column , "Filter", "Mazda");
column = _ObjectCallMethod(gantt, "ExecuteTemplate", "Columns.Item(`Equipment`)");
_ObjectSetProperty( column , "FilterType", 3);
_ObjectSetProperty( column , "Filter", "*ABS*|*ESP*");
_ObjectCallMethod( gantt , "ApplyFilter");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
723
|
I have seen the IN function but it returns -1 or 0. How can I display the value being found ( SWITCH usage )
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Value");
_ObjectSetProperty( column , "Width", 24);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "SWITCH - statment");
_ObjectSetProperty( column , "ComputedField", "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)");
_ObjectSetProperty( column , "ToolTip", _ObjectGetProperty( column , "ComputedField"));
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
722
|
I have a large collection of constant values and using or operator is a time consuming (IN usage). Is there any way to increase the speed to check if a value maches the collection
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Value");
_ObjectSetProperty( column , "Width", 24);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "IN - statment");
_ObjectSetProperty( column , "ComputedField", "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''");
_ObjectSetProperty( column , "ToolTip", _ObjectGetProperty( column , "ComputedField"));
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
721
|
How can I use the CASE statement (CASE usage)
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Value");
_ObjectSetProperty( column , "Width", 24);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "CASE - statment");
_ObjectSetProperty( column , "ComputedField", "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourt" +
"heen')");
_ObjectSetProperty( column , "ToolTip", _ObjectGetProperty( column , "ComputedField"));
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
720
|
How can I use the CASE statement (CASE usage)
OBJECT column,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "Value");
_ObjectSetProperty( column , "Width", 24);
column = _ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "CASE - statment");
_ObjectSetProperty( column , "ComputedField", "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen" +
"';14:'Fourtheen')");
_ObjectSetProperty( column , "ToolTip", _ObjectGetProperty( column , "ComputedField"));
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", 0);
_ObjectCallMethod( items , "AddItem", 1);
_ObjectCallMethod( items , "AddItem", 2);
_ObjectCallMethod( gantt , "EndUpdate");
|
|
719
|
Is is possible to use HTML tags to display in the filter caption
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarCaption", "This is a bit of text being displayed in the filter bar.");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod( items , "AddItem", "Item 1");
_ObjectCallMethod( items , "AddItem", "Item 2");
_ObjectCallMethod( items , "AddItem", "Item 3");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
718
|
How can I find the number of items after filtering
OBJECT gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod( _ObjectGetProperty( gantt , "Columns") , "Add", "");
items = _ObjectGetProperty( gantt , "Items");
h = _ObjectCallMethod( items , "AddItem", "");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h,0) = VisibleItemCount");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
717
|
How can I change the filter caption
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 12801);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "london robert");
_ObjectSetProperty( gantt , "FilterBarCaption", "<r>Found: ... ");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
716
|
While using the filter prompt is it is possible to use wild characters
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 16);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "lon* seat*");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
715
|
How can I list all items that contains any of specified words, not necessary at the beggining
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 4610);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "london davolio");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
714
|
How can I list all items that contains any of specified words, not strings
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 12802);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "london nancy");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
713
|
How can I list all items that contains all specified words, not strings
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 12801);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "london robert");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
712
|
I've noticed that the filtering by prompt is not case sensitive, is is possible to make it case sensitive
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 258);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "Anne");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
711
|
Is it possible to list only items that ends with any of specified strings
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 4);
_ObjectSetProperty( gantt , "FilterBarPromptColumns", "0");
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
710
|
Is it possible to list only items that ends with any of specified strings
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 4);
_ObjectSetProperty( gantt , "FilterBarPromptColumns", "0");
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
709
|
Is it possible to list only items that starts with any of specified strings
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 3);
_ObjectSetProperty( gantt , "FilterBarPromptColumns", "0");
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "An M");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
708
|
Is it possible to list only items that starts with specified string
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 3);
_ObjectSetProperty( gantt , "FilterBarPromptColumns", "0");
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "A");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
707
|
How can I specify that the list should include any of the seqeunces in the pattern
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 2);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "london seattle");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
706
|
How can I specify that all sequences in the filter pattern must be included in the list
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptType", 1);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "london manager");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
705
|
How do I change at runtime the filter prompt
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "london manager");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
704
|
How do I specify to filter only a single column when using the filter prompt
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPromptColumns", "2,3");
_ObjectSetProperty( gantt , "FilterBarPromptPattern", "london");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
703
|
How do I change the prompt or the caption being displayed in the filter bar
OBJECT columns,gantt;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
_ObjectSetProperty( gantt , "FilterBarPrompt", "changed");
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
702
|
How do I enable the filter prompt feature
OBJECT columns,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
_ObjectCallMethod(gantt, "ExecuteTemplate", "Chart.PaneWidth(True) = 0");
_ObjectSetProperty( gantt , "ColumnAutoResize", -1);
_ObjectSetProperty( gantt , "ContinueColumnScroll", 0);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
_ObjectSetProperty( gantt , "SearchColumnIndex", 1);
_ObjectSetProperty( gantt , "FilterBarPromptVisible", -1);
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Name") , "Width", 96);
_ObjectSetProperty( _ObjectCallMethod( columns , "Add", "Title") , "Width", 96);
_ObjectCallMethod( columns , "Add", "City");
items = _ObjectGetProperty( gantt , "Items");
h0 = _ObjectCallMethod( items , "AddItem", "Nancy Davolio");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj,h0")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "TemplatePut", h0)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Andrew Fuller");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Vice President, Sales`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Tacoma`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.SelectItem(h0) = True");
h0 = _ObjectCallMethod( items , "AddItem", "Janet Leverling");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Kirkland`");
h0 = _ObjectCallMethod( items , "AddItem", "Margaret Peacock");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Redmond`");
h0 = _ObjectCallMethod( items , "AddItem", "Steven Buchanan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Manager`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Michael Suyama");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Robert King");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
h0 = _ObjectCallMethod( items , "AddItem", "Laura Callahan");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Inside Sales Coordinator`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `Seattle`");
h0 = _ObjectCallMethod( items , "AddItem", "Anne Dodsworth");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,1) = `Sales Representative`");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(h0,2) = `London`");
_ObjectCallMethod( gantt , "EndUpdate");
|
|
701
|
Is it possible to colour a particular column, I mean the cell's foreground color
OBJECT columns,conditionalformat,gantt,items;
gantt = ObjectByName("AN1") ;
_ObjectCallMethod( gantt , "BeginUpdate");
conditionalformat = _ObjectCallMethod( _ObjectGetProperty( gantt , "ConditionalFormats") , "Add", "1");
_ObjectSetProperty( conditionalformat , "ForeColor", 255);
_ObjectSetProperty( conditionalformat , "ApplyTo", 1);
_ObjectSetProperty( gantt , "MarkSearchColumn", 0);
columns = _ObjectGetProperty( gantt , "Columns");
_ObjectCallMethod( columns , "Add", "Column 1");
_ObjectCallMethod( columns , "Add", "Column 2");
items = _ObjectGetProperty( gantt , "Items");
_ObjectCallMethod(gantt, "TemplatePut", "Dim iteObj")
_ObjectCallMethod(gantt, "TemplatePut", items)
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(0),1) = 1");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(2),1) = 3");
_ObjectCallMethod(gantt, "ExecuteTemplate", "iteObj.CellCaption(AddItem(4),1) = 5");
_ObjectCallMethod( gantt , "EndUpdate");
|